10 DEFINT A-Z:KEY OFF:WIDTH 80:LINE INPUT "Text: ",S$:CLS:RANDOMIZE TIMER
20 L=LEN(S$):Y=(INT(RND*100) MOD 25)+1:X=80:T0#=TIMER:TS=0:COLOR INT(RND*14)+1
30 IF L=0 THEN S$=TIME$:L=LEN(S$):TS=1
40 WHILE LEN(INKEY$)=0
45 IF TS=1 THEN S$=TIME$
50 IF X<1 THEN LOCATE Y,1,0 ELSE LOCATE Y,X,0
60 IF X<1 THEN PRINT RIGHT$(S$,L+X-1);" " ELSE IF 80-X<L THEN PRINT LEFT$(S$,80-X+1); ELSE PRINT S$;" "
70 IF X<=-L+1 THEN X=80:Y=(INT(RND*100) MOD 24)+1:CLS:COLOR INT(RND*14)+1 ELSE X=X-1
90 T#=TIMER:WHILE (T#-T0#)<0.2:T#=TIMER:WEND:T0#=T#
100 WEND:CLS:COLOR 7:END
